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はじめに 


このたびは、弊社スキヤナシリーズをお買い求めいただきまして、誠にありがと 
うございます。 

本書は、スキヤナとスキヤナカートリッジを十分に活用していただけるように、操 
作方法の全般を説明しています。お使いになる前に必ずお読みください。 


お客様へのお願い 

1システムのバックアップ以外の目的で、本ソフトウエアの一部 
または全部を複製.流用することを禁じます。 

2本マニュアルの一部または全部を複製•流用することを禁じま 
す。 

3 本 マニュアルの 内容に ついては、 予告な く 変更することがあり 
ます。 

4 ソフ トウ エア および マニュアルの内容については万全を期して 
おりますが、万一お気付きの点やご不明の点がございましたら、 
お手数ですが、弊社窓口までご一報くださるようお願いいたし 
ます。 

5運用した結果については、上記4項にかかわらず、黄任を負い 
かねます ので ご注意ください。 

6本マニュアルに掲載した画面表示•説明図などは、実際のもの 
とは一部異なることがありますがご了承ください。 



本害の読み方 

本睿は、スキヤナを使って画像を取り込んで韉集し、利用するまで 
の操作全般を説明しています。 

お 手持ちの アブリケーシヨ ンソフ ト について は、それぞれの取り 
扱い説明害をお読みく ださい。 

表記上の約束 

♦キーボードのキーは枠で囲んで表記しています。 

「なにかキーを押してください」と説明されているときは、キ 
ーボードのキー（どれでもよい）を押してください。 

「 L キーを押してください」と説明されているときは、画面で 
指定されたキー（この場合では!^)を押してください。 


♦ 「選択する」と書かれているときは、目的の項目や値を反転さ 
せ、リターンキーを押してください。 
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tz ット内容を確認する 


お求めになられましたらすぐにセツトの内容をご確認ください。万一、不足してい 
るものがありましたら、弊社までご連絡ください0 



カートリッジは、靜霣気などで壊れることがありますので、端子分には絶対に手を触れな 
いでください。 

本品に同梱されているディスクには大事なプログラムが入っています。大切に取り扱い、 
磁石等に近付けないようにしてください。 


■セッ ト内容の他に必要なもの 

本品を画像データの取り込みだけにお使いの方は、まったく必要ありませんが、 
rHALNOTEJ 及び r グラフィックエディター J のデータとして扱う場合に 
は、 MSX —DOS または、 MSX—BASIC でフォーマットされたディスクが 
数枚必要です。 

■マウスご利用のおすすめ 

添付されているブログラムは、まったくマウスを必要としませんが、本品ならび 
に本品で作成されたデータを 『HALNOTEJ や「グラフ ィックエ ディター J の 
データとして扱う場合は、マウスがあれば、より簡単な操作で扱うことができるよ 
うになります。各ソフトの豊富な機能をすべて利用するためにも、なるべくマウス 
でのご利用ください。 

マウスは各社製のものがご使用になれますが、弊社からも「コボウズ （ HTB —6 0〉 」 
が発売されてます。 

マウスをコンビュータ本体に接統する方法や取り扱いについては、マウスについている取 
り扱い脱明書をご竄ください。 


6 









① D P 丨切り瞽え 

図版の読み取る精度の調整をします。2 
段睹あり、8ドットは粗く、16ドットは 
細かく読み取られます 0 8ドットを指定す 
ると図版を読み取る範囲が大きく取れ、1 
6ドットを指定すると読み取る範囲が半分 
になります。 

② B R I GHT (ブライト） 

原稿が明るい（白の比率が多い〉ときは 
右に、暗い（黒の比率が多い）ときには左 
に回して調整します。 

®D I TH E R (デイザ） 一 

B / W …イラストや文字など、白黑 
(濃淡）がはっきりしている 
図版を読み取る場合に設定し 

D I THE R …写真など白黒（濃淡） 

がはっきりしない図版を読み 
取る場合に狡定します 0 
デイザには、 a 、 b 、 c のスイッチ設定が 
あり、それぞれ異なった表現力で読み取る 
ことができます。 

a :明るい部分から暗い部分までの階 
調がなめらかで、最も忠実に図版 
を読み取ります。 

b :図版のトーンが強諝され、力強さ 
がでます。 

c :粒子が粗くなり、離れたところか 
ら見るときに有効です。 

楽 SCREEN 6.7 及び HALNOTET は b,c のデイザは使用で#ません • 


④ CONTRAST (コントラスト） 
読み取る図版のコントラスト（明暗の度 

合い）を調整します。 

左供にするとコントラストが強くなり、右 
側にするとコントラストが弱くなります。 
中問には■の目印があります。 

⑤ 読み取り位置確訪窓 

読み取り位置を II 認するための窓です。 

⑥ ス ター トスイッチ 

絵や写真を読み取るときに1回押しま 
す。これを押してから本体を動かせば、原 
稿を読み取ることができます。 

⑦ ゴム ローラ 

スキヤナが移動したことを検出する部分 
です。 

⑧ 统み取り窓 — 

図版を読み取る部分です。 
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接続のしかた 


スキャナカートリッジは、スキャナで取り込んだ絵のデータをコンピューター本体 
に渡す重要な部分です。次の手順にしたがって正しく取り付け、スキャナ本体 、 AC 
アダプタとの接続をしてください。 



8 



1 MS X 本体の電源をオフにして下さい。 


2 スロットに、スキヤナカートリッジを差し込んでください。 

HALNOTE カートリッジと同時に使用するときは、 HALNOTE カート 

リッジを必ずスロット1に差し込みます。 

3 下の図のように、 AC アダプタの DC プラグを*源ジャックに、スキヤナの接 
続コネクタをスキャナ接続端子に差し込んでください。 


(スキャナの接続コネクタは、矢印のついている側を手前にして差し込んでく 
ださい。） 

4 AC アダプタをコンセントに差し込んでください。 

(長時間使用しないときや、 DC プラグをスキャナカートリツジから抜き差し 
するときは、コンセントから抜いておいてください。） 



☆コンピュータの電源が入っているときに、カートリツジやコネクタ類の抜き差しは絶 
対にしないでください。 



スキャナカートリッジには 、 BAS I C から簡単にスキャナを使うための拡張 B 
AS 1 C ステートメント処理ルーチンが内蔵されています。 


[形式] 


CALL SCAN ( ST , XP , YP ， XS , YS , SW , Cl , C 2 ) 
[パラメータの説明]--- 


ST スキヤナタイプを示す数値です。 

0 ： HIS- 10 
2 ： HIS - 10 Y 
4: HVS -1 0 


XP , YP 画面上の取り込みエリア原点（左上）を指定します。 

※上記の鲔囲が小さすぎると Cant CONTINUE が出ることがあります。 


X S, YS 

C 1 
C 2 


画面上の取り込みエリアの大きさを、ドット数で指定します。 

取り込み画像の黒ドット（図形）に対応する VRAM カラーコード 
取り込み画像の白ドット（背景）に対応する VRAM カラーコード 


S W 取り込み面積を指定する数値 

1:拡大 
2 :通常 

浓 SCREEN 5,8の場合は、2にしてください。 


•エラーコード 


ma 


エラー内容 

(21) 

NO RESUME 

AC アダプターが異常です 

(17) 

Canl CONTINUE 

途中で取り込みをやめた 


原因 

外部電*が切れています 


ESC キーで中断した 












スキャナご使用上の注: 



スキヤナのご使用にあたっては、次のような点にご注意ください。 

•直射日光のあたる場所、振動の激しい場所、湿気やほこりの多い場所、非常に高 
温な場所ではご使用にならないでください 


籲スキヤナ本体の分解、改造は絶対に行わないでください0 


•スキャナ本体の読み取り窓に異物を入れないでください。 

•スキャナ本体の外側を、ペンジン、シンナー、化学ぞうきんで拭かないでくださ 
い。汚れのひどい場合は、中性洗剤を水で薄めたものにきれいな布を浸し、きつ 
く絞ってご使用ください。 

•落としたりぶつけたりして、スキャナ本体に強いショックを与えないでくださ 

い0 

#ゴム ローラに 汚れが ついた 場合は、粘着 テープ 等で汚れを取ってください。 

•ケーブル類は、引っ張ったり無理に曲げたりしないでください。 

•ケーブル類の接続•取り外しは、必ずコンピューター本体の電源が切れているこ 
とを確認し、コネクタ部分を持って行ってください。 

•カートリツジの端子部には絶対手を触れないでください。 
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本品付*のディスクには、ハンディスキャナの機能を理解して頂く 
ための簡単なプログラムが納められています。また、使用にあたって 
は、バックアップをとったディスクでご使用することをお薦めしま 
す。 


SCAN . BAS 

各部動作チヱックを行い 、 SCA 
NNER . BAS をスタートさせる 
ブログラムです。 

SCANNER . BAS 

各スクリーンモードに対応した画 
像取り込みのサンブルプログラムで 
す。スキヤナの機種指定、スクリー 
ンモード毎の取り込み、簡単な画像 
編集、 BAS IC 形式での SAVE 
/L 0 A D がなどが実行可能です。 

また、ユーザーの応用ソフトの制 
作の参考となるように、ブログラム 
の各所にコメントが記されていま 
す。あわせて、 本書 4 2ページより 
掲載されているブログラムリストも 
ご活用下さい。 


SCAN . (SC 

HALNOTE 用の画像取り込み 
ブログラムです0 HALNOTE の 
システムディスクにブログラムを複 
写してお使い下さい。また、詳しい 
使用方法は、本書16ページ f HA 
LNOTE 用スキャナブログラムの 
使い方』を参考にして下さい。 

PACKBIT . HN 

HALNOTE 上でスキャナを使 
う時に必要なシステムブログラムで 
す。 HALNOTE のディスクにブ 
ログラムを複写してお使いくださ 
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HAL NOT E 用 
スキャナプロ グラムの使い方 


本商品は 、 HA LNOTE との併用を考慮して作られています。付属のブログラ 
ムを HALNOT E のディスクに複写することにより、いままでできなかった画像 
の取り込みや編集、文害データへの画像組み込み等が可能になります0 


「ワープロ」や「図形プロセッサ」でご利用になる場合は、チューニングバー 
ジョンの道具が必要になります。 

H A LNOTE ユーザ登録後、弊社ユーザーサボート係までお間い合わせく 
ださい。 


HALNOTE を起動する前に、以下のことをチェックしてください。 

■ HALNOTE カートリッジがスロット1に、スキャナカートリッジがス 
ロット2に差し込まれていますか？ 

■スキャナカートリッジには、 DC プラグが、 AC アダプターはコンセント 
に差し込まれていますか？ 

■ハンデイスキャナは、カートリツジのスキャナ接続端子に接続されていま 
すか？ 


■付属のブログラムを HALNOTE のディスク複写しましたか？ 


もし正常に動作しなかった場合は、直ちに MS X 本体の電源を切り、以上の事をも 
う一度チェックして下さい。 
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付属のプログラムを 

HAL NOT E のディスクに複写する l 


本商品は、付属のブログラムを HAL NOTE のディスクに組み込むことによつ 
て、 HALNOTE 上での画像取り込みが可能になります。 

ここでは、そのブログラムを組み込む方法を、わかりやすく説明します0 

•では、実際に組み込んでみましよう！ 


本体に付属しているディスクを入れて、キーボードから以下のように打って下さ 

い 0 


COPY M A ： SCAN . ( SC ，， TO ” B : SCAN . ( SC ，， 


1 ドライブでお使いの場合は、もとのデータが読み込まれた後、以下のメッセージ 
が表示されます。 


Insert diskette for drive b : 
and strike a key when ready 


ここで、 HALNOTE のディスクを入れてリターンキーを押します。 

あとは、画面に表示されるメッセージに従い本体付属のブログラムディスクと HA 
LNOTE のディスタを数回入れ替えれば、作業は完了です。また、同じように P 
ACKBIT . HN も複写しておいてください。 


MS X — DOS をお恃ちの方へ 


付属のプログラムは 、 MSX — DOS を使っても樣写することができます〇詳 
しいやり方は 、 MS X — DOS のリファレンスマニュアルか、関連害籟をご参 
照ください。 
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立ち Jl げ方 


1. バインダからメニューバーの”道具”を左クリックして、道具の一覧を表示 
させます。 


SCAN ” を左クリックすれば、ブログラムが立ち上がります。 



H A L NO T E は、スロット1に H A L N 0 T E カートリッジ、スロット2にスキャナカ 
一トリッジが差し込まれてないと、正常動作しません。プログラムを実行する前に、もう 
一度確認してださい 0 
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実際に取り込んでみましよう _ 

では、実際に取り込んでから保存するまでを、順を追って説明します。 

1. メニューバーから”取込”を左クリックして、スキヤナの機種の選択と、取り 
込み方法を決めます。 


2. ” 開始”を左クリックして、スキャナを原稿の上でなめらかに滑らせます0 
(1 画面を数秒で取り込む程度が最適です） 

3. 满足のいく画面ならば、タイトルメニューを左クリックして、”保存”を左ク 
リックします。 

4. 好きなファイルネームをつけて、リターンキーを押します。 

以上が、スキャナを使って画像を取り込んでから保存するまでの、一連の操作で 


17 




HAL NOT E 「作画』アイコンー覧表 


口 

文 


□ 

口 



ず 

ml 

四 


• • 「編集」などの処理対象となる範囲を指定します。基本的 
には「製図道具」の範囲指定とほぼ同じです。 

• •文字の入カセルを開きます。入力位置や字体等が良ければ 
マウスを右クリックすると範囲が消えて、文字が残ります。 

_ •直線を引くときに使用します。 

•-四角形を描くときに使用します。 

‘ •角の丸い四角形を描くときに使用します。 

• •丸を描くときに使用します。 

' •始点と終点までの多角形を描くときに使用します。 

(終点で2回クリックすると始点と終点が結ばれます） 

' •マウスで動かしたように自由な線を引くときに使用します。 

.描かれているものを消しゴムで消すように使用します。 

•点を打つときに使用します。 

(押したまま動かすと自由線も描けます） 


その他の機能 


ノイズ消去 • •総選択やセレクタで選択された部分のスキャナ取り込み画 
像のノイズを消去する機能です。（ノイズ消去する前に一 
旦「保存」しておくと良いと思います） 
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ここでは、本品に同相されているディスクに納められているブログラムをもと 
に、実際にハンディスキャナを使って画像を取り込む方法を説明していきます。 

サンプルプログラムを起動する 前に …… 

ブログラムを起動する前に、以下のことをチェックして下さい。 

■スキヤナカートリッジは、スロットに差し込まれていますか？ 

■スキヤナカートリッジには、 DC プラグカ<、 AC アダプターはコンセントに 
差し込まれていますか？ 

■ハンディスキヤナは、カートリッジに接続されていますか？ 

もし正常に動作しなかった場合は、直ちに MS X 本体の電源を切り、以上の事をも 
う一度チヱックして下さい。 

画像を取り込む前に …… 

▲起動方法 

BA SIC を起動してから、サンプルブログラムの入ったディスクをドライブ A 
に入れて下さい。 

キーボードから 、 RUN ’， SCAN . BAS ” と入力し、リターンキーでスタ 
ートさせてください0以下のメニュー画面（以下ヘルプ画面）が現れます。 

もしエラーが発生した場合は、カートリッジの接続不良が考えられます 。 MSX 
本体の電源を切って、もう一度接続を確認して下さい。（メニュー画面参照） 

▲起動時の揉作 

最初に表示されるヘルプ画面では、各キーに対応したコマンドの簡単な説明が記 
されています。また、このヘルプ画面は、何かキーを押す事で終了する（消す）こ 
とができます。 

ヘルプ画面が終了したら、スキャナのタイプを設定します。詳しくは r く丁>ス 
キヤナタイブの設定 j で説明します0 

これで、画面に『コマンドを入力して下さい j と表示されたら準備は完了です。 
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実際に取り込んでみましょう _ 

さあ、用意はできましたか？ では、実際に厢を追って画像を取り込んでみま 


1 . ヘルプ画面から何かのキーを押して、 コマンド 待ちの状態して下さい。ここで 

スペースキーを押すと、画面の枠が黒くなり画像取り込みの待機状態になりま 
す0 (スキヤナの読み取り位置確認窓が点灯します） 


2 . 取り込みたい原稿の上にスキャナをセットして、スタートスイッチを押して下 
さい。スキャナを静かに滑らせれば、原稿が読み取られていきます。 （1 画面 
を数秒で取り込む程度が最適です） 


3 . 満足のいく取り込みができましたか？現在表示されている画面でよければ、 

r よろしいですか？ j の問いに” y ” と入力して下さい。もし、満足がいかな 
ければ” N ” と入力して、 1 からやり直して下さい。 

4. いま取り込んだ画面をディスクにセーブしましょう。” s” とキー入力したら 
画面の指示にしたがって、ファイルネームを入力して下さい（最高8文字ま 
で）〇ファイルネームを入力し終わったら、リ ターン キーを押して下さい。こ 
れで、あなたが取り込んだ画像がディスクに記録できたはずです。 

5 . では、実際にセーブできたのかどうか、ロードして確認してしてみましょう。 

” L ” キーを押すと、現在ディスクに納められている画像ファイルの一覧 
が表示されます。目的のファイルが見つかりましたか？ では、” > LOA 
D ファイル=”の問いにさきほど記録したファイルネームを打ち込み、リタ 
ーンキーを押してみて下さい。ディスクを読みにいき、さきほど記録した画像 
が表示されましたね。 


これが実際に画像を取り込むまでの一連の操作です。ここで紹介したのは一番簡 
単な使用方法です。このやり方を利用して、いろんな画像を取り込んでみて下さ 

い 0 
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各コマンド説明 


さきほどは簡単な取り込みの方法を説明しましたが、ここではより高度な取り込 
み.編集をするためのコマンド説明をします。これから説明するコマンドを覚えて 
いただけば、よりいっそう簡単に、かつ複雑な編集処理が可能になります。 

r S PAC E 1 画像取り込み開始 

スペース キーを 押すことで、 スキャナの 画像読み取り位置確認窓が点灯し、画像 
取り込み待ちの状態になります 0 スキャナ 側の スタ ートボタンを押すと読み取り位 
置確認窓がさらに明るく点灯します。あとは、原稿の上をゆっくりと滑らせれば〇 
K です。 

もし、スキャナの画像読み取り位置確認窓が点灯しない場合は、以下のことが考 
えられます。 

(1) カートリツジが正しく接続されていない。 

(2) スキャナのプラグがカートリツジに正しく接続されていない。 

(3) カートリツジに電源が供給されていない。 

取り込みが終了すると r よろしいですか？ j と表示されます。満足のゆく画像で 
あれば” Y ” を入力して確定します。失敗ならば” N ” を入力すれば、以前の画面 
が復活します。 


I E SC I 画像取り込み中止 

スペースキーを 押して画像取り込み待ちをしている時にこの キーを 押せば、取り 
込みを中止して以前の画面を復活させることができます。 


[sjl F 1 ] 画像データのセーブ 

ディスクに保存されているデータの一覧が表示されて、ファイルネームの入カモ 
ードになります。 

ファイルネームを入れてリターンキーを押すと、画像データをディスクに保存し 
ます。また、既に存在するファイルネームを入れた場合は、確認を求めてきます。 
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OK ならば” Y ” と入力して下さい。ただし、この場合はすでにあるファイルに才 
ーバーライト（重ね害き〉しますので、以前のデータは失われますのでご注意くだ 
さい0拡張子はブログラムが各スクリーンモードを準じて付けますので、指定しな 
いで下さい。 


[L II F 2 ] 画像 データの□ー ド 

デイスクに保存されているデータの一览が表示されて、 ファ イルネームの入カモ 
ードになります。 

フ ァイル ネームを 入れてリ ターンキーを 押すと、指定され たデータを 読み込ん 
で、画面に表示します。 

ファイルの形式は 、 BAS IC の BSAVE / BLOAD と同じ形式です0 


m [ F 51メッセージの消去 

V ( F 5) ” を押すと、『コマンドを入力して下さい J のメッセージが消え 
て、全画面が見えるようになります。また、この状態では全てのコマンドを受け付 
けません。何かキーを押せば、コマンド待ちの状態に戻ります。 


fill F 61 スキャナタイプの設定 

” T ” を押してスキャナタイプの変更を行います。 

カーソルで反転表示を左右に移動し、リターンキーで決定します。 セッ ト アップ 
時は” HIS — :I 0” に設定されていますが、他のスキャナを使用するときは、必 
ずこの コマンドで スキャナのタイブを変更してからお使いになるようにして下さ 
い。タイプの変更をしなければ、正常な動作は保証されません。 
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r m i im スクリーン•モードの設定 

” M ” を押して スクリーン.モードの 変更を行います。 

カーソルで反転表示を左右に移動し、リターンキーで決定します。また、スクリ 
ーン.モードが変更されると、現在表示されてる画像データはクリアされるので注 
意して下さい。 

[各スクリーン•モードの特徴] 

SCREEN 5 256 X 212 卜 • 7 トスキャナ取り込み部の左半分が有効 
SCREEN 6 512 X 212 卜 • 7 トスキャナ取り込み部の全体が有効 
SCREEN 7 512 X 212 卜 • 7 トスキャナ取り込む部の全体が有効 
SCREEN 8 256 X 212卜’ 7 トスキャナ取り込み部の左半分が有効 


「 Gl「F 81 表示ロジック（方法）の変更 

" G ” を押して表示ロジックの変更を行います。 

カーソルで反転表示を左右に移動し、リターンキーで決定します。 

ロジックの意味は 、 BAS I C の CO P Y ステートメントと同じです。また、演 
算の対称になるのは、黒で表示されるドットのみです。 

[各モードの説明] 

PSET 論理演算はしません。 

AND カラーコードの論理積 

OR カラーコードの論理和 

XOR カラーコードの排他的論理和 


pn rr ^ i 画面の縮小 

” R ” を押して縮小の大きさのの変更を行います。 

カーソルで反転表示を左右に移動し、リターンキーで実行します。縮小終了後、 
r よろしいですか？ j の問いに” y ” と入力すれば、完了です0もし、気に入らな 


24 




ければ” N ” と入力して下さい。実行以前の画像が表示されます。 


[各モードと実際に表示される大きさ] 


1/2縦，横共に2分の1の大きさにします0 
1/4縦，横共に4分の1の大きさにします0 


[ ? |ヘルプ画面の表示 

コマンド待ちの状態で”？”を押すと、ヘルプ画面を表示します0ただし、コマ 
ンドを実行して何らかの形でユーザーからの入力を要求している時は、実行されま 
せん。 


r q I プログラムを終了する 

” Q ” を押すと画面に『終了しますか？ J と表示されます。終了してもよけれ 
ば” Y ” を、編集を継続するなら" N ” を押して下さい。 

※联明 中の各メッセージは漠字で書かれて いますが 画面上には、 MSX の ANK で表示され 
ます。 
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ここでは、付属のブロダラムで取り込んだ画像データを、 r カラー.グラフィッ 
ク•エディター Ver . 2. 0 J のデータとして扱う方法を説明します。 

カフー • グラフィック T エディターを 

立ち上げる前に …… — 

ここから先は、1ドライブ仕様の MS X をお持ちの方を前提に説明します。2ド 
ライブ仕様の MS X をお持ちの方は、 『#2 ドライブの MSX で使用するには… 
からお読み下さい。 

•1 ドライブの MS X での使用方法 

1ドライブの方は、ロード及びセーブのコマンドを実行する場合のみ、 B ディス 
クアイコンを指定しなければなりません。これは、カラー.グラフィック.エディ 
ターが A ドライブをシステム読み込み用として確保してしまうため、ディスクの入 
れ替えができないからです。よって、 B ドライブアイコンをクリックすることは、 
ドライブ A を仮想 B ドライブとして使用するために必要な作業なのです。 

また、以後の説明ではドライブの指定を行いませんので、お手持ちの MS X にあ 
わせて判断してください。 

參2ドライブの MS X で使用するには…… 

2 ドライブの M S X をご使用の方は、 2 ドライブがデータ専用のドライブとして 
割り当てられます。カラー.グラフィック.エディターのディスクをドライブ1に 
いれて、データの入ったディスクをドライブ2に入れてリセットして下さい。 

•カラー_グラフィック.エディターのデータとして扱うには 

では、実際にカ ラー •グラフィック • エディターのデータとして扱ってみましょ 
う。 ドライブ1に付属のディスクを入れて、リセットして 下さい。 

タイトル画面が出たら、入力機器を選択してして下さい。 

※キーボードの場合、进択キーは 「 F 1 j 。キャンセルキーは I F 2」です。 
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画面の口 ー ドとセ ープ 
•実際に読み込んでみましょう 


グラフィックエディターが立ち上がったら編集アイコンをクリックして、各コマ 
ンドの設定を行います。 

セットアップアイコンをクリックして、さらにデイスクロードアイコンを選びま 


す。 


キャンセル 


㊁ 

:〒 


* 

ほぼ1 
■ i — == 

□ DCi ® 驟^ bll 


ク|」アメニューペン セツトアツフ 

以下のウインドが開いたら、〇 BAS IC を左クリックした後に右クリックしま 
す0 


編集画面に戻ったら、デイスクロードアイコンを左クリックします。 

編集 



m 

辱 



Ml [Qgl (Si 

J 固 S > 





ウィンドが開いたら、目的のファイルを左クリックし、 LOAD アイコンを左ク 
リックします。 （1 ドライブの MSX をご使用の方は、 B ドライブアイコンを左ク 
リックした後に、ファイルを選んで下さい） 

目的の画面が表示されましたか？ このように、 BASIC の BSA V E 形式で 
保存されているファイルは、一度セットアップモードにして、ロードする環境を変 
更しなければなりません。しかし、一度現境を設定してしまえば、 MSX 本体の電 
源を切るまでは、その環境が持続されます0 
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カラー.グラフイツク.ェデイターでは、以下のように BA SIC 上で保存され 
たデータを扱います。 


セットアップ 

1 

ロー ド時の環埦変更 

1 

ロー ドするファイルの指定 

1 

ロード開始（ベタ読み） 

1 

表示 


參口ードできない場合は . 

ロー ドできない場合は以下のことが考えられます。 


Q ファイルの 一 K が表示されない。 

A フアイルがセーブされたスクリーンモードと、カラー•グラフィック.エディ 
ターのスクリーンモードが一致してないことが考えられます。画像データは、 
同じスクリーンモードでないとロー ドできないので、セットアップでデータと 
同じスクリーンモードに変更して下さい。 


Q 画像が最後まで表示されない。 

A ディスクの内容が破壊されているか、コビーする時にディスクを入れ替える回 
数を間違えたかのどちらかです〇1ドライブの人は、もう一度複写しなおして 
下さい〇 2ドライブの人は、完全に内容が破壊されています。残念ですが、そ 
のデータはあきらめて下さい。 


28 



•セーブしてみましよう 

現在表示されている画像を 、 BA S I C の BSAVE 形式でセーブしてみましよ 
ろ 0 

編集アイコンを左クリックした後、セットアップアイコンを左クリックして、環 
境設定モードに入ります。 

ディスクセーブアイコンを左クリックして、〇 BA SIC を左クリックします。 
(セーブ現埃は、本体の電源を切るまで持続されます） 

右クリックして編集モードに戻し、ディスクセーブアイコンを左クリックしま 
す0 


キーボードからファイルネームを打ち込んで、リターンキーを押せば、ディスク 
に保存されます。（すでに存在するファイルネームを打ち込むと、確認を求めてき 
ます。よろしければ” 0 K " のアイコンを左クリックして下さい。ただし、この場 
合はオーバーライトをしますので、以前のデータは失われます） 


カラー•グラフィック•エディターでは、以下のように BA SIC 上で扱える 
ファイルとして保存します。 


セットアップ 

i 

セーブ時の*谀变更 

i 

セーブす る ファイルの 指定 
(キーボードより指定） 

i 

セーブ開始（ベタ害き） 

I 


ファイル指定への復帰 


以上が 、 BAS I C で保存されたファイルの扱い方法です。 
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圧縮された画面のセーブとロード 


グラフィックエディターには、画像データをコンバクトにまとめてセーブする機 
能があります。これを利用することにより、より多くの画像データを一枚のディス 
クに納めることができます。 

ここでは、画像データをコンパクトにまとめてセーブ（圧縮セーブ）する方法を 
説明します。 

•圧縮をかけたセーブ方法 

まず、ロード等を 行い、 画面に画像を表示させます。（画面1 枚 必要） 

編集モードからセットアップして、ディスクセーブアイコンを左クリックしま 
す。（画面1枚必要〉 

〇 G —Ed i t 〇 r を左クリックし、右クリックして編集モードに戻します。 
(立ち上げ時は、 G-E d i t 〇 r になっているので、変更の必要はありません） 
(画面1枚必要） 

あとは 、 BAS I C モードの時と同じように操作して、セーブして下さい。 

參セーブ時の注意 

圧縮セーブをする時は、スクリーンモードに関係なく、拡張子が” SCC ” に統 
一されます。よって、すでに別のスクリーンモードで現在セーブしようとしている 
ファイルと、同じファイルネーム指定してセーブされているファイルが存在する場 
合は、オーバーライト（重ね書き）をしてしまうので、十分に注意が必要です。 
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カラーグラフイツクェデイターでは、以下のような手順で圧縮セーブを行います。 


セットアップ 

i 

セーブ時の琢埦変更 

1 

セーブす る ファイルの 指定 
(キーボードより指定〉 

i 

セーブ開始（圧縮してセーブ〉 

i 

ファイル指定への復播 


•圧縮された画像データの口ードのしかた 

圧縮されたファイルをロー ドするには、通常の方法と同じようにセットアッ 
し、環境変更で〇 G —E d i t 〇 r を左クリックして下さい。あとは、通常の口 
ドと同じです。 

カラーグラフィックエディターでは、 以下のように圧縮された データをロードし 
す。 





•圧縮セーブの利点 


圧縮をかけてセーブすると、ファイルサイズは BAS IC の BSAVE 形式の約 
1/3〜1/5の大きさになります。したがって、 BSAVE 形式のファイルを扱う時よ 
りも、3〜5倍ちかいデータを1枚のディスクに保存しておけるわけです。 

また、圧縮をかけて保存しておけば、カラー•グラフィック，エディターに読み 
込ませることによって、いつでも BSAVE 形式のファイルにもどすことができま 
す。 


•カラー•グラフィック_エディターを活用する 

カラー•グラフイック•エデイターのデータとして扱うことで、より一層きれい 
なものに仕上げてみてはどうでしょうか？ 

☆ スクリーンパレットの変更をして、より原画に近いものに！ 

☆ 作画でよりアートなものにする。 

☆ 編集で細かい手直しをする。 

☆ 文字入力を使えば、タイトルの作成だって期 i 単！ 

☆ カラープリントアウトも可能！ 
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bsa ざ Tir いないファイルに好—し r の 


傾向と対策 


B SAVE 以外に MS X 2 では、 C 0 PY の命令を使って絵を保存する方法があり 
ます。その場合、たとえ拡張子（ファイル名のうしろの半角3文字）が同じでも、 

BLOAD しているソフトウエアでは読み込むことができません。 

これを読み込むようにするには、下記のようなブログラムで BSAVE しなおす 
必要があります。 

ここでは例として数行のブログラムと、対応している SCREEN のアドレスを 
記載しておきますので、お手持ちの BAS IC リファレンスか市販されている書籍 
等と照らし合わせて BSAVE を行ってください。 


10 SCREEN 8 

20 COPY "FILENAME. SC8 M TO (0,0) 
30BSAVE "FILENAME. SC8 M ,0,&HD3FF，S 


BSAYE の書式は次の書式で 


BSAVE ’’ F I LENAME . SCX ” ， [スタートアドレス]，[エンドア 
ドレス ], S 


各 SCREEN のスタートアドレスは [0] で、エンドアドレスは一般的に以下 
の番地です。 


SCREEN 5 
SCREEN 6 
SCREEN 7 
SCREEN 8 


& H 6 9 FF 
& H 6 9 FF 
& HD 3 FF 
& HD 3 FF 
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カラー • グラフず 

ック■エディ ターコマン ドー 覧 

作画用コマンド 

機能 

押している間だけ曲線を引きます 


画面上にある色を使って曲線を引きます 

1 指定された 2 点の間に線を引きます 


指定された領域を別の場所に複写します 

押している間だけ絵を消します 

e スプレーを かけます 

!一一 i 指定された大きさの四角形を描きます 

0 

指定された大きさの円弧を描きます 

A 

線で囲まれた領域を塗ります 

編集 コマンド 

機能 


指定された部分を拡大し、修正します 


指定された領域内の指定色を他の色に変更します 

指定された領域を上下反転します 
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^ 画面を消去します 

; ?■ 1 " .■ 1 

n 

指定した領域を回転表示します 

指定された領域を左右反転します 

LOhD 

画像データの読み込みをします 

pi ディスクを初期化します 


画像データの保存をします 

: :—-: 

プリントアウトします 

作画のセットアップ 

機能 

吾： 

スプレーの密度、大きさをを指定します 


ペイント方法を変更します 


使う文字の細かい設定を行います 

編集のセットアップ 

機能 

S3S 

LOhD 

重ね合わせの指定、ファイルのフォーマットを指定 
します 

SPME 

ファイルのフォーマットを指定します 

プリンターの設定を行います 

固 

スクリーンモードの変更と画面の位置を調整します 
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ブソンタ設定とカラーハー ドプログラム 
•プリンタ設定 


(> -^ 

〇 SMI-720 

OSMI-7020 

OHBP-F1 

◎HBP-F1C 

〇 HBP-F1C(1/2) 

〇 PRN-M24 

〇 PRN-T24 

Vs ■■ 

※ブラザーの M ~1024 系、 l ^1224 P / X は、 PRN - M 24 の設定で印刷を行ってください。 
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參カラー ハー ド コビー プログラム 

•内容 

このプログラムは、カラー•グラフィック*エディタで作った BAS I C フアイ 
ルを使ってカラーハードコビーするブログラムです。 

キーボードから LOAD " PRINT . BAS ” で読み込んでからご使用ください。 

籲対応プリンター 

F S - PC 1のみ。それ以外のプリンターは対応していません。 

•スクリーンモード 

SCREEN 8 



FS - PC 1 のリボンカセットは A 面 B 面で色傾番が逆になります。したがいまして印刷中 
にリボンカセットを交換する場合は、同じ面の交換をお勧めいたします。カラーハード 
コビーは、1画面フルに印字して約3 0分ほどかかります。 

このハードコビープログラムは、4色のリボンを使って2 5 6色を近似的に表現して 
おりますので、実 S の画面の色とは多少異なって印字される場合があります。 

PR INT . BAS 


10 CLEAR 300.& HD 200 
20 BLOAD " fs _ pcl . bin'R 
30 SCREEN 8 

40 BLOAD H girl . sc 8 \S -呼び出したい SCREEN 8の絵の BLOAD 

50 CMD CPR 0,0,0-印刷の実行及びパラメータ指定 


CMD CPR 0, 0, 0 

I しリボンカセットの面指定 
横方向のオフセツト指定 
大きさ 


•印刷時の大きさ 
0 •.. 音通 

1••-1/4が2個 横 並び 
2 _ • • 1/4が1個 


•オフセット値 

ドット単位 （例 25— 25ドット） 
•リボンカセット面 
0 . A 面 1 . B 面 
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[ ラーメ ッセージと 対処法 


誤つた操作をしたり、操作中に何か異常があるとエラーメッセージが表示されま 
す。 

以下のメッセージー覧表をご参照ください。 

(尚、一 K 表に記載されていないメッセージに関しては、弊社ユーザーサポート 
係までご連絡ください。） 


■ HALNOTE [ SCAN .( SC ] の主なエラーと対策 


メ ツセー ジ 

内 容 

対 策 

プリンタが接続さ 
れていません。 

プリンタが印字できる状態 
ではない 

プリンタの状態を確認してみ 
る 

データが正しくあ 
りません 

ファイルの内容が当ソフ 
卜では扱えない 

バックアップしてあったフ 
ァイルがあればそれを彳吏用 

してみる 

スキヤナがつな 
がれていません 

スキャナの接続がおか 
しい 

スキャナの接続を確認してみ 

る 

中止しました 

スキャナ取り込みを途 
中で中止した 

ESC キーで中止したとき 
等に表示される 

電源が入ってい 
ません 

スキャナの外部電源が供 
給されていない 

AC アダプタの接続、コン 
セントの具合いを確認して 
みる 
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■ BAS IC サンブルプログラムの主なエラーと対策 


メ ッ セージ 

内 容 

対 策 

ファイルガアリマセ 

ン 

該当するファイルが無 

い 

ファイル名を確認してみる 

ファイル メイ エラー 

入力したファイル名が 
不当 

BASIC で扱えるファイル名 
にしてみる 

ドライブ メイ エラー 

指定したドライブ名が 
不当 

ディスクドライブの順番を 
確認してみる 

ディスクガイッバイ 

デス 

フロ ッ ビーディスクの 
空容量が無ぃ 

違うディスクを準備する. 

ライトプロテクトヲ 

ハズシテクダサイ 

フロ ッ ビーディスクが 
書き込み禁止になって 

V 、る 

フロ ッ ピーディスクのラ 
イトプロテクトを塞いで 
書き込み可能にする 

ディスクヲイレテク 

ダサイ 

フロ ッ ピーディスクが 
ドライブに入っていな 

い 

ディスクドライブにフロッ 
ピーディスクを入れる 


※その他コマンド入力待ちになる場合は、各種接続及び設定を確認してください。 
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付録 

プログラムリスト 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
U 20 
1130 
114 0 
1150 
1160 
1170 
1180 
1190 
1200 
12 10 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
13 10 
1320 
1330 
1340 
1350 
1360 
1370 


/* - */ 

/ * SCAN.BAS for SCANNER.BAS */ 

/* - */ 

/ * Version 01.000 [1 989. 07. 021 * / 

/ * 1.Test SCANNER Board * / 

/ * 2. RUN* 1 SCAN . BAS " */ 

/ * - */ 

/ * Created b y HAL Laboratoiy. * / 

/* - */ 


， <<< Set Up >>> 

DEFINT k-Z 

COLOR = NEW : COLOB 1,15,15 : SCREEN 0 : WIDTH 40 


'<<< Test S CANNEE Board >>> 
ON EBROB GOTO 1180 : _SCAN( 

IF ERB = 5 THEN BESUME 1360 
IP EBB = 2 THEN BESUME 1250 
COLOR 12 : PRINT'* 

ON EBBOB GOTO O 
END 


1 <<< SCANNER Board Not Exist >>> 

ON ERROB GOTO 0 
BEEP : COLOR 6 

PB INT'*# SCANNEB 力ートリ v チ - 力 - t ツソ ■' クサレテイマセン . 
PRINT 

PRINT** # MSX 卜办ートリつチ * 1 J テ # ンケ ^■ ン ? キッテ " 
PH INT**# タタ p シクズロットニソウチヤクシナオシテクタ•，イ 
PRINT 
END 


* <<< Go Ahead 丨！ >>> 
ON EBBOB GOTO 0 


- 1 )* [ 口 IT 卜 x ?- ヲハッセイサセル 

1 [ セイシ- 3 ヴナハ•アイ Illegal 
* [ ホ--卜_ r シヨキカサレテイナイト、 
4 Sorry, Some thing is wrong . . . 


1380 PRINT "U Just a moment, please ..." 

1390 GOSUB 1 430 
1400 RUN"SCANNER . BAS" 

1410 ’ 

1 4 20 ， 

1430 <<< Define Function Keys >>> 

1440 RESTORE 1540 

1450 READ K IF K < 1OR K > 10 THEN HETUEN 

1460 A$ = 

1470 READ X$ 


1475 

I F 

X$ =，." 

THEN KEY K, 

A$ 


GOTO 

1450 

1480 

I F 

LEFT$( X$,1 )<> 

THEN A$ - A$ 

+ 

X$ : 

GOTO 

1470 

1490 

IF 

LEFT$ ( X$, 2 ) = •'¥¥*• 

THEN A$ = A$ 

+ 

X$ : 

GOTO 

1470 

1500 

A$ = 

A$ + CHR$( VAX( ” &H” 

+ MID$( X$, 2 

) 

)) 



1510 

GOTO 

1470 






1520 








1530 

^ —— 

-No., String し 

String . 

• - J 

^ ***• 



1540 

DATA 

1,**wi dth80 M , 

¥0D 





1550 

DATA 

2 , " auto " , 

• い * 





1560 

DATA 

3 , " goto ** , 

"•• 





1570 

DATA 

4 , •* 1 i a t •• , 






1580 

DATA 

5 , *• r u n" , 

¥OD 





1590 

DATA 

6 , "color 1,15,15", 

¥OD 





1600 

DATA 

7 ,"load** , 

¥16 





16 10 

DATA 

8 , ** c o nt " , 

¥0D 


• … 



1620 

DATA 

9 f "list." , 

¥0D , ¥1E, 

¥1 E 




1630 

DATA 

10 , ¥0C , 

-run*', ¥0D 





164 0 

DATA 

-1 







Funcation Call 
Syntax Error 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
14 10 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


SCANNGB. 

BAS 

Version 

01. 000 

[1989.07.30] 

Created 

by HAL 

Laboratory. 


* シ ヨキ セツ テイ 

MAXPILES = 
DEFI NT A-Z 
STOP ON 
OPEN "GEP : " 


CLEAB 512 

ON STOP GOSUB 1430 
GM =1 
AS #GM 


CM$ = *'Gq VvTtMmGgKr SsLl? ?" 
FK$ = " SL. . VTMGR. ** 

YN$ 二 *'YyNn" 

DIM WI(2048) 

DIM MS$(4).MX(4),MW(4) 

GOSUB 4330 

SM = 5 : PI=1 : P2 


ク '■ ラフィックカ - 声ンメッセーシ — 

3 マント ' テ - フ•ル 

フアンクシヨンキーテーフ、'ル 

Ye a - No / ハンティ 

ウイント^•ウ / ソウヲホソ•ンスルハイレツ 

センタクウイン トウ ノ メッセーシ ' トザ 1 ヒ 3 ウ 
SCBEEN 8 办ラーテ - フ ’ ル、フアンクシ a ン キー テイ 
スクリーンモート 、> ON/OFF 卜 11 7 ト ノハ • レット 3-1^ 


G0SUB 1900 : GOSUB 4560 


GOSUB 2810 'l SCREEN. ヘルフ*、スキヤナ 


タイフ. 


’<<< Main Loop >>> 

ON STOP GOSUB 1550 : STOP ON 

ON ERBOB GOTO 3550 

IF WI ( 0 ) = 0 THEN MS$ = "n マン ！^ を うりよく して くた ■■ さい ": GOSUB 2250 

IF FK THEN K$ = MID$( FK$, FK,1) : GOTO 1320 

， へ t FK ニフアン クシ 3 キー No. 

K$ = INKEY$ : IF K$ = ••，. GOTO 1290 
K = INSTE( CM$ , K$ ) - 1 
IP K < 0 GOTO 1380 ELSE GOSUB 2450 

ON K¥2+1 GOSUB 1550,2520. 2750, 2810,2880,2950,3010, 3400,3470,4560 
FK = 0 : HP = 0 

GOTO 1250 


PLAY"V15T120L4O6B" : HP = HP+1 

IF HP > 3 THEN HP^O : FK= 0 : GOSUB 4 560 
GOTO 1280 


* <<< Termination 

STOP STOP 

SCBEEN 0 

COLOR 1,14,14 

WIDTH 40 

FOK K =1 TO10 

NEXT 

GOSUB 1710 

ON ERBOB GOTO 0 

END 


>>> 

ON ERROR GOTO 
COLOR = NEW 
CLS 

KEY ON 
KEY(K) OFF 
CLOSE 


15 10 


.<<< Quit >>> 

OK STOP GOSUB 1730 : GOSUB 2680 

MS$ = •* しゅうりょうし i すか？ ( y / n ) •• 

GOSUB 1640 

IF OK GOTO 1430 ELSE ON ERBOB GOTO 1610 
RETURN 1600 f [ RETURN without GOSUB Xy- テ—ヌケル 
EESUME 1250 


’ <<< Confirm >>> 

GOSUB 1710 : GOSUB 2250 : K = 0 

B = R +1 IF B > 50 THEN LINE(WX,WY)-STEP(WW,WH),XO,BF,XOE : B = 0 
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2340 
2350 
2360 
2370 
2380 
2390 
24 00 
24 10 

24 20 
2430 
244 0 
2450 
2460 
2470 
2480 
2490 
250 0 
2510 

25 20 
2630 
254 0 
2550 
2560 
2670 
2580 
2590 
2600 
2610 
262 0 
2630 
264 0 
2650 
266 0 
267 0 
2680 
2690 
27 00 
2710 
2720 
2730 
274 0 
2750 
27 60 
27 70 
27 80 
2790 
2800 
2810 
2820 
2830 
2 840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 

293 0 

294 0 
2950 
2960 
29 70 
298 0 
2990 
3000 


GOSUB 2450 

WX = (AX - WW) ¥ 2 

WY = 212 - WH 

COPY (WX,WY)-STEP(WW,WH),0 TO WI 
IF SM = 8 THEN C 二 CT(3) ELSE C 二 3 

COLOR ,C : LINE(WX,WY]-STEP(WW f WH),C,BP 
IF SM = 8 THEN C = CT(1)ELSE C =1 

COLOE C : LINE(WX, WY)-STEP(WW,WH), C , B 
BETUBN 


* <<< Close Message Window >>> 

STOP STOP 

IF WI(0) <> 0 THEN COPY WI TO (WX,WY).0 

WI ( 0 ) = 0 : STOP OH 

BETUBN 


* <<< Execute SCAN >>> 

UD -1:GOSUB 2450 : GOSUB 1710 : GOSUB 1750 : IF EB GOTO 2680 


IF LO 

ON K 

二 0 GOTO 2610 ELSE K 
GOTO 2560, 2570. 2580 

= 

LO : IF SM ^ 8 

AND K 

< 3 THEN K = 

COPY 

(XP,YP)-STEP(XS,YS),1 

TO 

(XP, YP ) , 0, AND : 

: GOTO 

2610 

COPY 

COPY 

(XP, YP)-STEP(XS, YS),1 
(XP, YP)-STEP(XS, YS ),1 

TO 

TO 

(XP, YP) f 0, OB 
(XP, YP), 0, XOK 

: GOTO 

2610 


'<« Undo ? >>> 

MS$ = ’’ よろしいて， . すか ？ （ y/n)” : GOSUB 1 64 0 : IF NOT OK GOTO 2680 

COPY (XP,YP)-STEP{XS,YS),0 TO (XP,YP).1 : UD = 0 

BETUBN 


* [ WW : = ウイント•'ウ AA- 

， [WH : = ウイント'ウタカサ 
， [ 为■■ソーウヲハイレツ W I 二 

‘ [ クイント'，ウヲク！ 

* [ ク D T* 1 9ク？カク 


， [ HT ず ”フメカツ 
1 t ウイント _ ゥ ? ム 3 ウニスル 


，<<< Cancel >>> 

STOP STOP : IF TX THEN GOSUB 1970 : UD =1 : TX = 0 

GOSUB 2450 : IF UD THEN COPY (XP, YP)-STEP(XS, YS),1 TO (XP, YP) , 0 

UD = 0 : STOP ON 

RETURN 


， <« Hide >>> 

GOSUB 2450 : GOSUB 1710 
IF INKEY* 二 •，" GOTO 277 0 
EETURN 


f <<< Scanner Type >>> 
MM = 3 

MS$ (1)=** H I S -10 M 
M = ST/2+1 

KETUBN 


M3$ ( 0 ) = ** SCANNEE*' 

MS$(2) = ” HIS-10Y” 

GOSUB 3170 


MS$ ( 3 ) = '*H V S -10 " 

ST 二 M-1 : ST=ST* 2 


<<< Screen Mode >>> 


MM ^ 4 
MS$ (1) :**5 
M = SM - 4 
GOTO 1900 


MS$(0 ) = "3CBEEN" 

M5$ ( 2 ) = •* B" : MS$ ( 3 ) 

GOSUB 3170 : IP M+4 


** 7 B : MS$(4 ) 二 **8** 

3M THEN BETUBN ELSE SM = 


<<< Logical Ope rat ion >>> 


MM = 4 

MS$ (1)=** P S E T 
M ^ LO+1 

RETURN 


MS$ ( 0) = "LOG IC w 

MS$ ( 2 ) = -AND*' : 

GOSUB 3170 : 


MS$(3) 

LO 



MS$ ( 4 ) 


XOR 


ホソ > 


K XOB 3 


M+4 
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30 10 1 <<< Be siz e >>> 

30 2 0 MM = 2 : M5$(0) = "RESIZE" : MS$(1)= "1/2" : MS $(2) 二 "1/4" 

3030 M =1:GOSUB 3170 : IF Z < 1 THEN BETUEN 

3040 UD 二 1:YY 二 YP 

30 5 0 FOR Y= YP TO YP + YS-1 STEP M* 2 f ( Y ホウ：!ウ ノ シ 2 クシ 3 ウ 

3060 COPY { XP,Y)-STEP(XS,1)TO (XP,YY) : YY - YY + 1 

3070 NEXT 

3080 LINE(XP.YY)-STEP(XS, YP + YS-YY),C2,BF ，[ ノコリ 9 ク•ノ 7 

3090 XX - XP 

3100 FOR X=XP TO XP + XS-1 STEP M* 2 ' t X ホウ： j ウ / シ i クシヨウ 

3 110 COPY ( X, YP)- STEP(1,YS) TO (XX, YP) : XX = XX 41 

3120 NEXT ' 

3 130 LINE (XX, YP)-STEP{ XP + XS-XX, YS ) , C2, BF ' 【 ノコ！；ヲショウキ 3 

3140 GOTO 261 0 
3150 1 

3160 ， 

3170 1 <<< Selecter >>> 

3 180 MS$ 二 MS$ ( 0 ) + 

3 190 FOB I 二 1 TO MM 

32 00 MX(I ) = LEN(MS$) * 8 +8 : MW(I) = LEN(MS$(I) ) * 8 + 4 

32 10 MS* = MS$ + .. '* +MS$ ( I ) 

3220 NEXT 

3230 GOSUB 2250 : MY 二 WY+1 : MH = WH -3 : Z = M ’ [ M ヲ Z ニホ V * ン 

3240 GOSUB 3280 : IF M < 0 THEN M = Z : Z =-1 '{ ESC ナラ M ヲフ / 々ツ 

325 0 GOTO 2450 '[ ウイン K ウ 9 トシ■'テシユヴョウ 

3260 ’ 

3270 1 

3280 * <<< Move Cursor >>> 

3290 GOSUB 3360 

3300 K$ = INKEY$ : IF K$ 二 •■，. GOTO 3300 ELSE K ^ ASC ( K$ ) 

3310 IF K =13 THEN EETURN ELSE IF K 二 27 THEN M = - 1 : RETUEN 

3320 IF K = 28 THEN K = +1:GOTO 3340 

3330 IF K 二 29 THEN K --1:GOTO 3 34 0 ELSE 3300 

3340 GOSUB 3360 : M = M+K : IF M < 1 THEN M 二 MM ELSE IF M > MM THEN M =1 

3350 GOSUB 3360 : GOTO 3300 

3360 LINE(WX+MX(M),MY)-STEP(MW(M),MH),XO,BF,XOR 
3370 BETURN 
3380 * 

3390 ' 

3400 '<<< Save >>> 

34 10 S V 二 1 : GOSUB 36 7 0 : GOSUB 2680 : IF F $ - THEN EETUEN 

34 2 0 ER 二 0 : C3 = C1 : COLOE, , 03 : B SAVE F$, 0, SA, S 

3430 C3 二 C2 : COLOK,,C3 IF EB THEN GOSUB 4080 : GOTO 3400 

3440 RETUEN 
3450 * 

34 60 - 

3470 *<<< Load >>> 

3480 S V = 0 GOSUB 367 0 : GOSUB 2680 : IF F $ = *'" THEN BET UK N 

3490 EB = 0 C3 = Cl : COLOR,, C3 : B I, O A D F$, S : PUT SPRITE 0, (0,216) 

3500 C3 = C2 : COLOR,,C3 : IF EE THEN GOSUB 4080 : GOTO 3470 

3610 COPY (XP, YP)-STEP(XS, YS), 0 TO (XP, YP),1 
3520 RETUEN 
3530 ’ 

3540 ， 

3550 '<<< Error Trap >>> 

3560 EB = ERE : IF EEL = 1770 THEN RESUME NEXT 1 [ 

35 7 0 IF EE = 5 3 THEN Efi$ = ■. ファイル办 ‘ ，アリマセン ” ： RESUME NEXT 

3580 IF EB = 56 THEN E£$ = ”ファイル メイ Xy~" : RESUME NEXT 

3590 IF ER = 62 THEN EB$ = ” 卜、，ライフ - > イヱラー ** : RESUME NEXT 

3600 IF ER = 65 THEN RESUME NEXT 

3610 IP EB ^ 66 OR EB = 67 THEN EB$ = .• テ . 、ィスク が インハ • イテ'*ス 

3 6 2 0 IF ER = 68 THEN EB$ = " ライトフテクトヲハス - シテクタ寸イ " 

3630 IF EB = 7 0 THEN EB« = ” テ '* ィスク 9 イレテクタ，サイ ’* 

3640 GOTO 1430 
3650 ， 

3660 ， 

3670 ' <<< Input File Name >>> 


_SCAN f ESC チュウタ-ン 


EESUME NEXT 

GOSUB 4080 : RESUME 

GOSUB 4080 : RESUME 
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3680 
3690 
3700 
3710 
3720 
3730 

374 0 

375 0 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 

38 50 
3860 
3870 
3880 
3890 
3900 
3910 

39 2 0 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 

40 10 
4 0 20 
4030 
404 0 
4050 
4060 
4070 
4080 
4090 
4 100 
4 110 
4120 
4130 
4 140 
4150 
4160 
4 170 
4180 
4190 
4200 

42 10 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4 300 

43 10 
4 320 
4330 
4 340 


IF TX = 0 THEN SCBEEN 0 : COLOR 1,14,14 : WIDTH 40 ： TX ^ 1 
FX$ = ，. • SC"+HEX$ ( SM) 

IF FD$ <> "A:” AND FD J <> .，B :，* THEN FD $ = "A:，. 

PB INT STB ING$ (11,，. -，，）“ < FILES ** F D $.，*，，+FX$ + .，> .* S T R I NG $ (11,： 
EE = 0 : PILES FD$ + '*». - + FX* 

IP EE = 0 OK EE = 53 GOTO 3760 

BEEP : PEINT"# *' E R $ " (，. F D * .，）.* : FD$ 二 •，A : 

GOTO 3710 

IF POS(0) <> 0 THEN PRINT 
PE INT STRING* { 40, *'-*')； 

£ B $ 二 


ELSE PK I NT**> LOAD ファイル 


[ ファイルメイヲオオモシ - ニヘン#ン 

CHR *{ASC(K$)-&H20) 


* <<< Input Again >>> 

IF POS(0) <> 0 THEN PBINT 

IF EB$ <> *• •• THEN GOSUB 4080 

IF SV THEN PK I NT**> SAVE フ？イルニ 

F$ = ’*_* : LINE INPUT F$ 

IF F$ = .，，• THEN EETUEN 

FOE 1 =1 TO LEN(F$) : K$ = MID$(F $,1,1) 

IF "a" =< K$ AND K$ :く .* z，* THEN MID$(F$,I ， 1) 

NEXT 

D$ 二 FD$ 

IF MID$ (F$, 2,1)^ ■* : '* THEN D$ 二 LEFT$ ( P$, 2 ) : FJ 

IF F $ 二 •.，• THEN FD$ = D$ : GOTO 3 7 10 

I 二 I NSTB ( F$ ,，，.，，） 

IF I > 0 THEN F$ 二 LEFT$(F$, I -1) 

F$ 二 D$+F$+PX$ : ER ^ 0 : NAME F$ AS F$ 

IF ER 二 56 GOTO 4040 

IF SV GOTO 3 9 9 0 ’ [ NAME F$ AS F $ ハ办ナラ又 ' , ERBOE 

IF EE = 65 THEN EETUEN ELSE 4040 * [ LOAD : File Already Exist OK 

IF ER = 53 THEN RETUEN ， [ SAVE File Not Found OK 

IF EB <> 65 GOTO 4040 


二 MID$(F$ f 3) 

'[FILES / 卜 . ，ライフ ， 


々クチ 3 ウシヲトル 


ヘン；！ウ 


P R I N T *• > •* F $ " 八ステ，ニアリマス . OK ( y/n ) ? " CHE$ (29 )； 

K$ = INPUT*(1) : I = INSTE( YN$, K$ ) 

IF I < 3 THEN KETUEN ELSE PBINT"n’. 

£E$ = ER$ + " ("+ P $ + ")" 

GOTO 3810 


GOSUB 1710 

IF I = 0 GOTO 4020 

GOTO 3710 


* <<< Hit Any Key >>> 

BEEP : TT = TX 

IF TX = 0 THEN SCBEEN 0 : WIDTH 40 : 

IF POS{0 ) <> 0 THEN PEINT 

COLOR 6 : PE I NT ** # ， ’ EB$ ; PEINT 

PE INT** ( { ( Hit Any Key )))**; : GOSUB 1710 

IF I NKEY$ 二 _ ,H GOTO 4 140 

PKINT CHB$(13)SPACE$(39)CHK$(13)CHR$(30 )； 
EK = 0 : ER$ = : I F TT =0 GOTO 2680 

COLOB 1,14 
BETURN 


• [ TT ニテキ X トモート' 1 フラクて 9 ホソ—ン 
TX =1 ， [ テキストモート—ニスル 


* [ Hit Any Key ヲケス 

* [ ク7フィックモト_ヲフッカツサセル 

* [ モトモトテキストモー K 夕’ッタ 


* <<< Initialize Palette >>> 

VDP( 9 ) 二 VDP ( 9 ) OR &H2 0 : KESTOBE 4 290 

FOR C = 0 TO15 

READ E,G,B 

COLOR 二 (C, B,G,B ) 

NEXT 

EETUEN 

DATA 7,7,7, 0,0,0, 4,1,1, 6,6,7,1,1,7, 2,3,7, 5,1,1. 2,6,7 

DATA 7,1,1, 7,3,3, 6,6,1, 6,6,4, 1,4,1, 6,2,5, 5,5,5, 7,7,7 


* <<< Initialize Color Table for SCREEN 8 & Set Function Keys >>> 
DIM CT(15) : BESTORE 4290 
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